home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / AppleCD SC Training / General 1 / background_18213.txt < prev    next >
Text File  |  1990-04-02  |  2KB  |  103 lines
  1. -- background: 18213 from stack: in
  2. -- bmap block id: 25384
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 6 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=414 top=2 right=31 bottom=450
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 8525 / 8525
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Next
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   visual effect barn door open
  23.   go to next card
  24.   visual effect dissolve
  25.   go to next card
  26. end mouseUp
  27.  
  28.  
  29. -- part 11 (button)
  30. -- low flags: 00
  31. -- high flags: 0000
  32. -- rect: left=424 top=287 right=333 bottom=468
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 1
  36. -- font id: 0
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: 
  41. ----- HyperTalk script -----
  42. on mouseUp
  43.   go to card "Sectwo" of stack Ruby 2-1-88
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 12 (button)
  49. -- low flags: 00
  50. -- high flags: 0002
  51. -- rect: left=477 top=2 right=20 bottom=511
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 1300 / 1300
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: Start-Up
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   global nav_Path
  63.   ---find out WHERE on the icon you clicked
  64.   put (item 1 of the clickLoc) - (item 1 of the Loc of me) into E
  65.  
  66.   ---if the click was on the left then
  67.   if E < 0 then
  68.     set icon of me to 1301
  69.     wait 1
  70.     set icon of me to 1300
  71.     push card
  72.     put PathWay() & "SN Feedback" into feedPath
  73.     set cursor to watch
  74.     visual effect dissolve fast
  75.     go stack feedPath
  76.  
  77.     ---if the click was on the right then
  78.   else if E > 0 then
  79.     set icon of me to 1302
  80.     wait 1
  81.     set icon of me to 1300
  82.     visual effect iris close to black
  83.     visual effect iris open
  84.     if nav_Path = empty then put "card Welcome of stack Support Navigator:Support Navigator" into nav_Path
  85.     go nav_Path
  86.   end if
  87. end mouseUp
  88.  
  89. function pathWay
  90. put the long name of stack "Home" into NewName
  91. delete char 1 to 7 of NewName
  92. repeat
  93.   if not(NewName contains ":") then
  94.     exit repeat
  95.   else
  96.     put char 1 to offset(":",NewName) of NewName after NewPath
  97.     delete char 1 to offset(":",NewName) of NewName
  98.   end if
  99. end repeat
  100. return NewPath
  101. end pathWay
  102.  
  103.